object pdMain: TpdMain
  Left = 203
  Top = 150
  BorderStyle = bsDialog
  Caption = 'NetCheck 1.0 '
  ClientHeight = 341
  ClientWidth = 540
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 540
    Height = 341
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 530
      Height = 331
      ActivePage = tsEcho
      Align = alClient
      TabOrder = 0
      TabWidth = 100
      object tsPing: TTabSheet
        Caption = 'Ping'
        object gbPingProgBar: TGroupBox
          Left = 0
          Top = 234
          Width = 522
          Height = 35
          Align = alBottom
          Caption = 'Progress'
          TabOrder = 0
          object pbPing: TProgressBar
            Left = 2
            Top = 15
            Width = 518
            Height = 18
            Align = alClient
            Min = 0
            Max = 100
            TabOrder = 0
          end
        end
        object gbPingHost: TGroupBox
          Left = 0
          Top = 0
          Width = 185
          Height = 40
          Caption = 'Host'
          TabOrder = 1
          object edPingHost: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
            Text = '200.200.30.2'
          end
        end
        object gbPingMsg: TGroupBox
          Left = 192
          Top = 0
          Width = 330
          Height = 234
          Align = alRight
          Caption = 'Messages'
          TabOrder = 2
          object memPingMsg: TMemo
            Left = 2
            Top = 15
            Width = 326
            Height = 217
            Align = alClient
            Lines.Strings = (
              'memPingMsg')
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
        object bbtnPing: TBitBtn
          Left = 2
          Top = 164
          Width = 75
          Height = 25
          Caption = 'Ping'
          Default = True
          ModalResult = 1
          TabOrder = 3
          OnClick = bbtnPingClick
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFF3333F333333300033339333333337773F33733333330008033
            933333333737F7F37333333307078733333933337337373F3337333077088803
            33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
            9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
            99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
            93333773F377337F73F333308807880339333337F37F337F373F333088077803
            339333373F73F37333733333087777333339333373F7F7F33F37333330807033
            933333333737F73373F3333333000333393333333377733337330000}
          NumGlyphs = 2
        end
        object gbPingHostName: TGroupBox
          Left = 0
          Top = 40
          Width = 185
          Height = 40
          Caption = 'Host name'
          TabOrder = 4
          object edPingHostName: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object gbPingIPAddress: TGroupBox
          Left = 0
          Top = 80
          Width = 185
          Height = 40
          Caption = 'IP address'
          TabOrder = 5
          object edPingIPAddress: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object rgPingMode: TRadioGroup
          Left = 88
          Top = 128
          Width = 97
          Height = 105
          Caption = 'Mode'
          ItemIndex = 0
          Items.Strings = (
            'Blocking'
            'Non blocking')
          TabOrder = 6
          OnClick = rgPingModeClick
        end
      end
      object tsEcho: TTabSheet
        Caption = 'Echo'
        object gbEchoMsg: TGroupBox
          Left = 192
          Top = 0
          Width = 330
          Height = 161
          Caption = 'Messages'
          TabOrder = 0
          object memEchoMsg: TMemo
            Left = 2
            Top = 15
            Width = 326
            Height = 144
            Align = alClient
            Lines.Strings = (
              'memEchoMsg')
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
        object gbEchoHost: TGroupBox
          Left = 0
          Top = 0
          Width = 185
          Height = 41
          Caption = 'Host'
          TabOrder = 1
          object edEchoHost: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
            Text = '200.200.30.2'
          end
        end
        object bbtnEcho: TBitBtn
          Left = 2
          Top = 175
          Width = 75
          Height = 25
          Caption = 'Echo'
          TabOrder = 2
          OnClick = bbtnEchoClick
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFF3333F333333300033339333333337773F33733333330008033
            933333333737F7F37333333307078733333933337337373F3337333077088803
            33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
            9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
            99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
            93333773F377337F73F333308807880339333337F37F337F373F333088077803
            339333373F73F37333733333087777333339333373F7F7F33F37333330807033
            933333333737F73373F3333333000333393333333377733337330000}
          NumGlyphs = 2
        end
        object gbEchoHostName: TGroupBox
          Left = 0
          Top = 40
          Width = 185
          Height = 40
          Caption = 'Host name'
          TabOrder = 3
          object edEchoHostName: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object gbEchoIPAddress: TGroupBox
          Left = 0
          Top = 80
          Width = 185
          Height = 40
          Caption = 'IP address'
          TabOrder = 4
          object edEchoIPAddress: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object bbtnStop: TBitBtn
          Left = 2
          Top = 232
          Width = 75
          Height = 25
          Caption = 'Stop'
          TabOrder = 5
          OnClick = bbtnStopClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
            33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
            993337777F777F3377F3393999707333993337F77737333337FF993399933333
            399377F3777FF333377F993339903333399377F33737FF33377F993333707333
            399377F333377FF3377F993333101933399377F333777FFF377F993333000993
            399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
            99333773FF777F777733339993707339933333773FF7FFF77333333999999999
            3333333777333777333333333999993333333333377777333333}
          NumGlyphs = 2
        end
        object gbInterval: TGroupBox
          Left = 309
          Top = 168
          Width = 97
          Height = 49
          Caption = 'Interval (secs)'
          TabOrder = 6
          object udInterval: TUpDown
            Left = 64
            Top = 16
            Width = 12
            Height = 21
            Associate = edInterval
            Min = 0
            Max = 999
            Position = 1
            TabOrder = 0
            Wrap = False
          end
          object edInterval: TEdit
            Left = 24
            Top = 16
            Width = 40
            Height = 21
            TabOrder = 1
            Text = '1'
          end
        end
        object gbPort: TGroupBox
          Left = 192
          Top = 168
          Width = 97
          Height = 49
          Caption = 'Port number'
          TabOrder = 7
          object edPortNo: TEdit
            Left = 24
            Top = 16
            Width = 40
            Height = 21
            TabOrder = 0
            Text = '1'
          end
          object udPortNo: TUpDown
            Left = 64
            Top = 16
            Width = 12
            Height = 21
            Associate = edPortNo
            Min = 0
            Max = 5000
            Position = 1
            TabOrder = 1
            Wrap = False
          end
        end
        object gbEchoNo: TGroupBox
          Left = 424
          Top = 168
          Width = 97
          Height = 49
          Caption = 'No of echoes'
          TabOrder = 8
          object udEchoNo: TUpDown
            Left = 64
            Top = 16
            Width = 12
            Height = 21
            Associate = edEchoNo
            Min = 0
            Max = 999
            Position = 0
            TabOrder = 0
            Wrap = False
          end
          object edEchoNo: TEdit
            Left = 24
            Top = 16
            Width = 40
            Height = 21
            TabOrder = 1
            Text = '0'
          end
        end
        object gbTestMsg: TGroupBox
          Left = 88
          Top = 224
          Width = 433
          Height = 41
          Caption = 'Test message'
          TabOrder = 9
          object edEchoTestMsg: TEdit
            Left = 8
            Top = 16
            Width = 417
            Height = 21
            TabOrder = 0
            Text = 'Hello there!'
          end
        end
      end
      object tabTrace: TTabSheet
        Caption = 'Trace'
        object gbTraceMsg: TGroupBox
          Left = 192
          Top = 0
          Width = 330
          Height = 268
          Align = alRight
          Caption = 'Messages'
          TabOrder = 0
          object memTraceMsg: TMemo
            Left = 2
            Top = 15
            Width = 326
            Height = 251
            Align = alClient
            Lines.Strings = (
              'memTraceMsg')
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
        object gbTraceProgBar: TGroupBox
          Left = 0
          Top = 268
          Width = 522
          Height = 35
          Align = alBottom
          TabOrder = 1
          object pbTrace: TProgressBar
            Left = 2
            Top = 15
            Width = 518
            Height = 18
            Align = alClient
            Min = 0
            Max = 100
            TabOrder = 0
          end
        end
        object bbtnTrace: TBitBtn
          Left = 2
          Top = 164
          Width = 75
          Height = 25
          Caption = 'Trace'
          TabOrder = 2
          OnClick = bbtnTraceClick
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
            033333777777777773333330777777703333333773F333773333333330888033
            33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
            FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
            8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
            8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
            8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
            8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
            FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
          NumGlyphs = 2
        end
        object gbTraceHost: TGroupBox
          Left = 0
          Top = 0
          Width = 185
          Height = 40
          Caption = 'Host'
          TabOrder = 3
          object edTraceHost: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
            Text = '200.200.30.2'
          end
        end
        object gbTraceHostName: TGroupBox
          Left = 0
          Top = 40
          Width = 185
          Height = 40
          Caption = 'Host name'
          TabOrder = 4
          object edTraceHostName: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object gbTraceIPAddress: TGroupBox
          Left = 0
          Top = 80
          Width = 185
          Height = 40
          Caption = 'IP address'
          TabOrder = 5
          object edTraceIPAddress: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
        end
        object bbtnAbort: TBitBtn
          Left = 2
          Top = 208
          Width = 75
          Height = 25
          TabOrder = 6
          OnClick = bbtnAbortClick
          Kind = bkAbort
        end
        object rgTraceMode: TRadioGroup
          Left = 88
          Top = 128
          Width = 97
          Height = 105
          Caption = 'Mode'
          ItemIndex = 0
          Items.Strings = (
            'Blocking'
            'Non blocking')
          TabOrder = 7
          OnClick = rgPingModeClick
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 307
    Width = 345
    Height = 34
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object bbtnExit: TBitBtn
      Left = 460
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Exit'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = bbtnExitClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
    end
    object bbtnHelp: TBitBtn
      Left = 5
      Top = 0
      Width = 75
      Height = 25
      Caption = 'About'
      TabOrder = 1
      OnClick = bbtnHelpClick
      Kind = bkHelp
    end
  end
  object Sonar1: TSonar
    Mode = NonBlocking
    HostName = '200.200.30.2'
    OnRecvData = Sonar1RecvData
    OnResolveData = Sonar1ResolveData
    OnProgress = Sonar1Progress
    Left = 257
    Top = 61
  end
  object Trace1: TTrace
    Mode = NonBlocking
    OnRecvData = Trace1RecvData
    OnResolveData = Trace1ResolveData
    OnProgress = Trace1Progress
    Left = 257
    Top = 133
  end
  object EchoC1: TEchoC
    Interval = 5
    OnRecv = EchoC1Recv
    OnNewData = EchoC1NewData
    OnDone = EchoC1Done
    Left = 257
    Top = 93
  end
end